perm filename FINAL[SCR,LCS] blob
sn#369172 filedate 1978-07-21 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 <THIS IS THE INPUT FILE TO THE PROGRAM *SCORE*. *SCORE*
C00014 ENDMK
C⊗;
<THIS IS THE INPUT FILE TO THE PROGRAM *SCORE*. *SCORE*
<PRODUCES DETAILED NOTE LISTS FOR *MBOX*. A SAMPLE OF
<THE *SCORE* OUTPUT IS ATTACHED.
PRECEDE;
FUNC SPCFM;
FUNC SPCFN;
NPTIX←150;
INST TOOT ONE TWO;
INST VIBFM INSA INSB INSC INSD INSE INSJ INSL INSM INSN
INSO INSP INSQ INSR INSS;
INST DFMVIB INSF INSG INSH INSI INSK;
PRINT SRATE;
PLAY;
REVERB 0 460;
*
INSA 0 65;
P2 NUM/.05 X 7/P31;<DURATIONS
P31 MOVE/60 3.5,4.5 .6,.7; <RESTS
P3 NOTES/E4/F/FS/G/F/FS/AS/R;<MIDDLE C 8VE =4
P4 MOVE/60 .3/5 .3,0;<AMP
P5 F1;<ENV FUNCTION
P6 3; P7 .01; <ATK SEG
P8 4; P9 .02; <DEC SEG
P10 MOVE/33 0,135/22 135,270; <LOCATION CUES
P11 MOVE/55 1.5/5 1.5,8; <DIST
P12 .01;
P13 4;
P14 F2;
P15 0;
P16 1.5;
P17 0;
P18 0;
END;
INSB 13 80;
P31 ALL P31;
P2 NUM/F(.06 X 4/.1/.06 X 14/.25)/@F/P32;
P32 MOVE/51 3.8,4.5 .5,.6;
P3 NOTES/D(CS6/C/REP 2,2/R/CS6/C/REP 2,6/B5/AS/R)/@D/R;
P4 MOVE/51 .28/5 .28,0;
P5 F5;
P6 2; P7 .01; <ATK SEG
P8 3; P9 .01; < DEC SEG
P10 MOVE/23 0,135/23 135,270;
P11 MOVE/46 1/10 1,8;
P12 .01;
P13 .9;
P14 F2;
P15 0; P16 2;<MOD ATK SEG
P17 0;
P18 0;
END;
INSC 27 60;
P32 ALL P32;
P2 NUM/.05 X 17/P33;
P33 MOVE/38 3.8,4.2 .7,.8;
P3 NOTES/FS5/F/E/DS/D/CS/C/B4/AS/B/C5/CS/D/DS/E/F/FS/R;
P4 MOVE/38 .21/5 .21,0;
P5 F1;
P6 2; P7 .001;
P8 4; P9 .005;
P10 MOVE/17 0,135/16 135,270;
P11 MOVX/33 1/5 1,8;
P12 .01;
P13 .5;
P14 F2;
P15 0;
P16 1;
P17 0;
P18 0;
END;
ONE 52 90;
P33 ALL P33;
P2 NUM/.16 X 9/.03 X 14/P34;
P34 MOVE/35 3.5,4 .7,1.1;
P3 NOTES/DS4/D/CS/C/B3/AS/A/GS/G/A2/AS/B/C3/CS/D/DS/
E/F/FS/G/GS/A/AS/R;
P4 MOVX/40 .22/5 .22,0;
P5 F2;
P6 F10;
P7 2;P8 .001;
P9 3; P10 .003;
P11 MOVE/18 0,135/17 135,270;
P12 MOVE/30 1.4/5 1.4,8;
P13 .01;
END;
INSD 67 92;
P34 ALL P34;
P2 NUM/.625/.125 X 5/P35;
P35 MOVE/20 1.75,2.25 .3,.4;
P3 NOTES/F3 X 4/E/DS/R;
P4 MOVE/20 .3/5 .3,0;
P5 F4;
P6 2; P7 .03;
P8 4; P9 .06;
P10 MOVE/12 0,135/13 135,270;
P11 MOVE/15 2.5/5 2.5,8;
P12 .01;
P13 MOVE/8 .25,2/8 2,.25/9 .25,2;
P14 F2;
P15 0;
P16 2;
P17 .06;
P18 10;
END;
INSE 90 150;
P2 .1;
P3 .2 C4,F4 .8 FS4,F6;
P4 MOVX/3 0,.5/9 .5/3 .5,.1/2 .1,.5/8 .5/2 .5,.1/2 .1/2 .1,.5/2 .5/
2 .5,0/3 0,.5/12 .5/3 .5,0/1 0,.5/4 .5/4 .5,0;
P5 F2;
P6 3; P7 .04;
P8 3;
P9 .04;
P10 MOVE/6 225/4 225,315/9 315/3 315,359/3 0,45/6 45/2 45,135/2 135/
6 45/3 45,135/2 135,180/2 180,135/2 135,180/3 180/1 225/2 225,315;
P11 MOVE/6 12,1/4 1/5 1,12/4 12,1/6 1/4 1,12/2 12,6/2 6/1 6,12/
2 1,6/3 6 12/1 12,1/2 1/2 1,12;
P12 .05;
P13 2;
P14 F1;
P15 0;
P16 .5;
P17 0;
P18 0;
END;
INSJ 147 207;
P2 NUM/.07 X 2/.6/.12 X 10/.3;
P3 RNOTES/G3,G3/G3,G3/G3,G3/A4,AS4/G3,G3/DS5,F/G3,G3/
B5,C6/G3,G3/FS4,GS4/G3,G3/CS6,DS6/G3,G3/R,R;
P4 MOVE/55 .45,.45/5 .45,0;
P5 F13;
P6 3;
P7 .22;
P8 4;
P9 .01;
P10 MOVE/6 765,45/10 765,45/16 765,45/26 765,45/2 765,45;
P11 MOVE/2 12,1/55 1,1/3 1,12;
P12 .05;
P13 2;
P14 F3;
P15 0;
P16 3;
P17 .01;
P18 10;
RR MOVX/10 0,0/50 0,.95;
END;
INSF 162 212;
P2 RLIST/1.8,3.5/.5,1.3;
P3 1 FS2,AS3;
P4 .88;
P5 1;
P6 1.001;
P7 .498;
P8 0;
P9 3;
P10 0;
P11 4;
P12 3;
P13 .3;
P14 5;
P15 .5;
P16 1;
P17 MOVE/50 405,180;
P18 1.5;
P19 .03;
P20 .8;
P21 .8;
P22 .1;
P23 F6;
P24 F7;
P25 F7;
P26 F1;
P27 .4 "F11" .3 "F9" .3 "F12";
P28 3;
END;
INSG 212 288;
P2 NUM/6/3/5/1.5/3.5/7/10/4/8/4.5/6/4/3.5/2/.5/.5/5/2;
P3 NOTES/E2/R;
P4 .7;
P5 1;
P6 1.001;
P7 .666;
P8 0;
P9 3;
P10 2;
P11 4;
P12 3;
P13 .3;
P14 5;
P15 .3;
P16 1;
P17 135;
P18 2;
P19 .05;
P20 .01;
P21 18;
P22 .7;
P23 F6;
P24 F7;
P25 F8;
P26 F4;
P27 F12;
P28 4;
END;
INSH 212 288;
DUPL 9;
P2 NUM/2.5/5.5/3.5/2.5/7/2/7.5/6.5/3.5/4/8.5/5/
3.5/4.5/2/.5/1.5/4/2;
P3 NOTES/R/E4/REP 2,9/R;
P4 .41;
P17 225;
END;
INSI 212 288;
DUPL 9;
P2 NUM/3/4/4/4/2.5/5.5/3.5/2.5/.5/5.5/5/4.5/.5/3/
3/.5/2.5/4/4/4/1.5/1/3.5/2/2;
P3 NOTES/R/FS6/REP 2,12/R;
P4 .6;
P17 315;
END;
INSK 289 325;
P2 NUM/.14;
P3 .9 300,300 .05 312,312 .05 288,288;
P4 MOVE/4 0,.4/10 .4,.6/6 .6,.3/10 .3,.1/3 .1,.9/4 .9,0;
P5 1;
P6 1.001;
P7 .888;
P8 0;
P9 3;
P10 4;
P11 5;
P12 2;
P13 .01;
P14 4;
P15 .02;
P16 2;
P17 MOVE/4 315,315/8 315,135/4 135,180/4 180,90/4 90,150/
3 150,120/3 120,135/3 135,140/3 320,320;
P18 MOVE/4 12,1/26 1,12/3 12,1/3 1,12;
P19 .1;
P20 0;
P21 0;
P22 0;
P23 F4;
P24 F8;
P25 F7;
P26 F1;
P27 F9;
END;
INSL 327 392;
P2 NUM/T(.06 X 4/.1/.06 X 14/.25)/@T/2.5;
P3 NOTES/V(CS6/C/REP 2,2/R/CS6/C/REP 2,6/B5/AS/R)/@V 1/R/
@V 2/@V 3/R/@V 4/@V 5/R/@V 6/@V 7/R/@V 8/@V 9/R/@V 10/@V 11/
R/@V 12/@V 13/R/@V 14/@V 15/R/@V 16/@V 17/R;
P4 MOVE/60 .28,.28/5 .28,.03;
P5 F5;
P6 2; P7 .01; <ATK SEG
P8 3; P9 .01; < DEC SEG
P10 MOVE/23 0,135/23 135,270;
P11 MOVE/55 ,1/10 1,12;
P12 .01;
P13 .9;
P14 F2;
P15 0; P16 2;<MOD ATK SEG
P17 0;
P18 0;
END;
INSM 337 392;
P2 NUM/.05 X 7/1.8;
P3 NOTES/Q(E4/F/FS/G/F/FS/AS)/R/@Q 2/R/@Q 4/R/@Q 6/R/
@Q 8/R/@Q 10/R/@Q 12/R/@Q 14/R/@Q 16/R/@Q 18/R/@Q 20/R;
P4 MOVE/50 .25,.25/5 .25,.05;
P5 F1;
P6 3; P7 .01; <ATK SEG
P8 4; P9 .02; <DEC SEG
P10 MOVE/33 0,135/22 135,270;
P11 MOVE/45 1,1/10 1,12; <DIST
P12 .01;
P13 4;
P14 F2;
P15 0;
P16 1.5;
P17 0;
P18 0;
END;
INSN 341 392;
P2 NUM/.05 X 17/2.8;
P3 NOTES/W(FS5/F/E/DS/D/CS/C/B4/AS/B/C5/CS/D/DS/E/F/FS)/R
/@W 2/R/@W 4/R/@W 6/R/@W 8/R/@W 10/R/@W 12/R/@W 14/R/@W 16/
R/@W 18/R/@W 20/R/@W 22/R;
P4 MOVE/46 .21,.21/5 .21,.05;
P5 F1;
P6 2; P7 .001;
P8 4; P9 .005;
P10 MOVE/17 0,135/16 135,270;
P11 MOVX/41 1,1/10 1,12;
P12 .01;
P13 .5;
P14 F2;
P15 0;
P16 1;
P17 0;
P18 0;
END;
TWO 347 392;
P2 NUM/.16 X 9/.03 X 14/3.4;
P3 NOTES/Y(DS4/D/CS/C/B3/AS/A/GS/G/A2/AS/B/C3/CS/D/DS/
E/F/FS/G/GS/A/AS)/R/@Y 2/R/@Y 4/R/@Y 6/R/@Y 8/R/@Y 10/R/
@Y 12/R/@Y 14/R/@Y 16/R/@Y 18/R/@Y 20/R/@Y 22/R;
P5 F2;
P6 F10;
P7 2;P8 .001;
P9 3; P10 .003;
P11 MOVE/35 1,1/10 1,12;
P12 MOVE/30 1.4/5 1.4,8;
P13 .01;
END;
INSO 357 392;
P2 NUM/.625/.125 X 5/3.7;
P3 NOTES/Z(F3 X 4/E/DS)/R/@Z 2/R/@Z 4/R/@Z 6/R/@Z 8/R/@Z 10/
R/@Z 12/R/@Z 14/R/@Z 16/R/@Z 18/R/@Z 20/R;
P4 MOVE/30 .28,.28/5 .28,.01;
P5 F4;
P6 2; P7 .03;
P8 4; P9 .06;
P10 MOVE/12 0,135/13 135,270;
P11 MOVE/25 1,1/10 1,12;
P12 .01;
P13 MOVE/8 .25,2/8 2,.25/9 .25,2;
P14 F2;
P15 0;
P16 2;
P17 .06;
P18 10;
END;
INSP 391 431;
P2 .12;
P3 .2 F3,F4 .8 FS4,B7;
P4 MOVE/40 .01,.6;
P5 F4;
P6 3;
P7 .06;
P8 3;
P9 .06;
P10 MOVX/40 45,36045;
P11 MOVE/10 10,4/40 4,4/10 4,10;
P12 .07;
P13 1;
P14 F7;
P15 MOVE/38 0,1;
P16 MOVE/38 0,2;
P17 0;
P18 0;
END;
INSQ 391 431;
DUPL 18;
P2 .14;
P7 .07;
P9 .07;
P10 MOVX/40 135,36135;
END;
INSR 391 431;
DUPL 18;
P2 .16;
P7 .08;
P9 .08;
P10 MOVX/40 225,36225;
END;
INSS 434 456;
P2 .07;
P3 MOVE/2 C4,CS6/2.6 D4,F6/.5 FS6,B5/.4 E6 D5/.2 CS5,FS5/
.3 G5,B4/3.4 C3,GS6/3 E3,C7/.2 CS7,F6/.3 A6,B5/.4 AS5,DS6/
.4 E6,B5/.4 AS5,DS6/.3 E6,B5/.3 AS5,DS6/.2 E6,B5/2 FS4,GS5/
2 FS4,GS5/2 FS4,GS5/2 FS4,GS5;
P4 MOVX/18 .4,.4/4 .4,0;
P5 F13;
P6 3;
P7 .04;
P8 3;
P9 .03;
P10 MOVX/22 45,1485;
P11 MOVX/22 1,12;
P12 .02;
P13 2;
P14 F3;
P15 0;
P16 1;
P17 0;
P18 0;
END;
RUN;